home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / falcon / nt_dsp1.lzh / NT_DSP1.MSA / FLTS / IIR7.ASM < prev    next >
Encoding:
Assembly Source File  |  1989-01-24  |  926 b   |  27 lines

  1. ;
  2. ; This program originally available on the Motorola DSP bulletin board.
  3. ; It is provided under a DISCLAIMER OF WARRANTY available from
  4. ; Motorola DSP Operation, 6501 Wm. Cannon Drive W., Austin, Tx., 78735.
  5. ; Last Update 15 Jul 87   Version 1.0
  6. ;
  7.  
  8. iir7    macro    nsec
  9. iir7    ident    1,0
  10. ;
  11. ;    Implements cascaded biquads
  12. ;
  13.     ori    #$08,mr                                ;set scaling mode
  14.     move                 x:(r0)+,x0  y:(r4)+,y0  ;first state, a12
  15.     do     #nsec,_ends                           ;do each section
  16.     mac    -x0,y0,a      x:(r0)-,x1  y:(r4)+,y0  ;ax2
  17.     macr   -x1,y0,a      x1,x:(r0)+  y:(r4)+,y0  ;ax1
  18.     mac    x0,y0,a       a,x:(r0)+   y:(r4)+,y0  ;bx2
  19.     mac    x1,y0,a       x:(r0)+,x0  y:(r4)+,y0  ;bx1
  20. _ends
  21.     rnd    a                                     ;round result
  22.     andi   #$f7,mr                               ;remove scaling mode
  23.     endm
  24.  
  25.  
  26.